removed haskell sdk compile errors (#967)

Author: henrylaxen

sdk/haskell/src/ServerSentEventGenerator/Types.hs

@@ -44,7 +44,7 @@ instance Default Selector where
 
 instance Prompt Selector where
   prompt (SEL x) = withDefault cSelector cDefaultSelector x
-    
+
 -- | A sum of the possible Datastar specific events that can be sent
 
 data EventType =
@@ -101,7 +101,7 @@ instance Prompt MergeMode where
    prompt UpsertAttributes = cUpsertAttributes
 
 data FragmentOptions = FO {
-  , useViewTransition :: Bool
+    useViewTransition :: Bool
   } deriving (Show)
 
 -- | the MergeFragments and RemoveFragment data types share these options
@@ -112,8 +112,8 @@ instance Default FragmentOptions where
   }
 
 instance Prompt FragmentOptions where
-  prompt (FO a b) = mconcat . buildLines $ [
-    , withDefault cUseViewTransition (prompt cDefaultFragmentsUseViewTransitions)  (prompt b)
+  prompt (FO a) = mconcat . buildLines $ [
+      withDefault cUseViewTransition (prompt cDefaultFragmentsUseViewTransitions) (prompt a)
     ]
 
 newtype AutoRemove = Auto Bool
@@ -138,12 +138,11 @@ bug :: Exception e => e -> a
 bug = throw
 
 data ServerSentEventGeneratorExceptions =
-   BuildLineDataIMissing 
- | RemoveFragmentSelectorIsMissing 
- | SignalsSelectorIsMissing        
- | RemoveSignalsPathIsMissing      
- | RemoveSignalsPathIsEmpty        
- | ExecuteScriptIsMissing          
+   BuildLineDataIMissing
+ | RemoveFragmentSelectorIsMissing
+ | SignalsSelectorIsMissing
+ | RemoveSignalsPathIsMissing
+ | RemoveSignalsPathIsEmpty
+ | ExecuteScriptIsMissing
 
 instance Exception ServerSentEventGeneratorExceptions
-

sdk/haskell/src/demo/Main.hs

@@ -66,7 +66,7 @@ handlerSignals = do
 
 handlerClear :: Snap ()
 handlerClear = send $ (mergeFragments "<div/>" (SEL "#signals") Inner def def)
-  
+
 handlerFeed :: Snap ()
 handlerFeed = do
   runSSE (SSEapp f)
@@ -95,7 +95,7 @@ handlerFeed = do
     feedDstar :: Text -> Text
     feedDstar x = mergeFragments ("<div id=\"feed\"><b>" <> x <> "</b></div>") def def def def
     removeDstar :: Text
-    removeDstar = removeFragments (SEL "#explain") (FO 5000 def) def
+    removeDstar = removeFragments (SEL "#explain") (FO def) def
 
 handlerKeats :: Snap ()
 handlerKeats = do
@@ -120,7 +120,7 @@ pause = threadDelay (10 * 100 * 100 `div` 2)
 sleep :: Int -> IO ()
 sleep n = threadDelay (n * 1000 * 1000)
 
-textToHtml :: Text -> Text 
+textToHtml :: Text -> Text
 textToHtml = T.concatMap escape
   where
     escape ' '  = T.pack "&nbsp;"

sdk/haskell/src/test/Main.hs

@@ -31,12 +31,12 @@ main = do
     attributes1 = "type: text/javascript\nblocking: false"
     attributes2 = "type: module"
   test [
-      mergeFragments "<div>Merge</div>" (SEL "div") Append (FO 1000 True) yourOptions
-    , mergeFragments "<div>Merge</div>" def Morph (FO 1000 True) def
+      mergeFragments "<div>Merge</div>" (SEL "div") Append (FO True) yourOptions
+    , mergeFragments "<div>Merge</div>" def Morph (FO True) def
     , mergeFragments "<div>\n  <span>Merge</span>\n</div>" def def def def
     , mergeFragments "<div>Merge</div>" def def def def
-    , removeFragments (SEL  "#target") (FO 2000 True) yourOptions
-    , removeFragments (SEL  "#target") (FO 300  False) def
+    , removeFragments (SEL  "#target") (FO True) yourOptions
+    , removeFragments (SEL  "#target") (FO False) def
     , removeFragments (SEL  "#target") def def
     , mergeSignals oneTwo True yourOptions
     , mergeSignals firstSecond True def
@@ -47,4 +47,3 @@ main = do
     , executeScript script1 attributes2 (Auto True)  def
     , executeScript script2 def def def
     ]
-