From 179cb735a235939002a991afadadd37e08cbb692 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Sun, 24 Mar 2019 13:07:23 +0100
Subject: [PATCH] weird fix build

---
 src/Handler/Utils/Form/MassInput.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Handler/Utils/Form/MassInput.hs b/src/Handler/Utils/Form/MassInput.hs
index 8da523d3a..7bca43b7f 100644
--- a/src/Handler/Utils/Form/MassInput.hs
+++ b/src/Handler/Utils/Form/MassInput.hs
@@ -33,7 +33,7 @@ import Control.Monad.Fix
 
 
 data BoxDimension x = forall n. (Enum n, Num n) => BoxDimension (Lens' x n)
-  
+
 class (PathPiece x, ToJSONKey x, FromJSONKey x, Eq x, Ord x) => IsBoxCoord x where
   boxDimensions :: [BoxDimension x]
   boxOrigin :: x
@@ -47,7 +47,7 @@ boxDimension n
 
 -- zeroDimension :: IsBoxCoord x => Natural -> x -> x
 -- zeroDimension (boxDimension -> BoxDimension dim) = set dim $ boxOrigin ^. dim
-  
+
 class (IsBoxCoord (BoxCoord a), Lattice a, BoundedJoinSemiLattice a) => Liveliness a where
   type BoxCoord a :: *
   liveCoords :: Prism' (Set (BoxCoord a)) a
@@ -213,7 +213,7 @@ massInput :: forall handler cellData cellResult liveliness.
           -> (Markup -> MForm handler (FormResult (Map (BoxCoord liveliness) (cellData, cellResult)), FieldView UniWorX))
 massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do
   let initialShape = fmap fst <$> initialResult
-  
+
   miName <- maybe newFormIdent return fsName
   let
     shapeName :: MassInputFieldName (BoxCoord liveliness)
@@ -268,7 +268,7 @@ massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do
     delForm :: BoxCoord liveliness -> MaybeT (MForm handler) (FormResult (Map (BoxCoord liveliness) (BoxCoord liveliness)), FieldView UniWorX)
     delForm miCoord = do
       (delRes, delView) <- lift $ mpreq (buttonField $ MassInputDeleteCell miCoord) ("" & addName MassInputDeleteButton{..}) Nothing
-      -- $logDebugS "delForm" . tshow $ fmap toPathPiece delRes
+      -- dollar comment causes build error somehow  $  logDebugS "delForm" . tshow $ fmap toPathPiece delRes
       shapeUpdate <- miDelete addedLiveliness miCoord
       guard $ isJust (Map.keysSet shapeUpdate ^? liveCoords :: Maybe liveliness)
       return (shapeUpdate <$ delRes, delView)
@@ -284,8 +284,8 @@ massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do
   let shapeChanged = Fold.any (isn't _FormMissing . view _1) addResults || Fold.any (is _FormSuccess . view _1) delResults
 
   shape <- if
-    | Just s <- addShape -> return s 
-    | Just s <- delShape -> return s 
+    | Just s <- addShape -> return s
+    | Just s <- delShape -> return s
     | otherwise          -> return sentShape'
   liveliness <- maybe (throwM MassInputInvalidShape) return $ Map.keysSet shape ^? liveCoords :: MForm handler liveliness
 
@@ -332,7 +332,7 @@ massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do
             cells
               | [] <- remDims = do
                   coord <- coords
-                  Just (_data, (_cellRes, cellWdgt)) <- return $ Map.lookup coord cellResults 
+                  Just (_data, (_cellRes, cellWdgt)) <- return $ Map.lookup coord cellResults
                   let deleteButton = snd <$> Map.lookup coord delResults
                   return (coord, $(widgetFile "widgets/massinput/cell"))
               | otherwise =
@@ -344,7 +344,7 @@ massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do
 
   MsgRenderer mr <- getMsgRenderer
   fvId <- maybe newIdent return fsId
-  
+
   let
     fvLabel = toHtml $ mr fsLabel
     fvTooltip = toHtml . mr <$> fsTooltip