hunt warnings

src/Model/Product.hs

@@ -5,7 +5,6 @@
 module Model.Product where
 
 import Data.Text (Text)
-import qualified Data.Text as T hiding (head, foldl, map)
 
 import Data.Time (getCurrentTime)
 
@@ -280,13 +279,13 @@ manualProductAmountRefill aups conn =
       perCrate <- productAmountPerCrate . fromJust <$>
         productSelectSingle pid conn
       head <$> liftIO (do
-        now <- getCurrentTime
+        now_ <- getCurrentTime
         runInsert_ conn $ Insert
           { iTable = amountTable
           , iRows  =
             [
             ( toFields pid
-            , toFields now
+            , toFields now_
             , toFields (oldamount + (amountSingles + (perCrate * amountCrates)))
             , toFields oldprice
             , toFields False