lint

IntersectMBO · Oct 23, 2020 · e3d2282 · e3d2282
1 parent 6c977fa
commit e3d2282
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/marlowe-playground-client/src/Demos/Types.purs b/marlowe-playground-client/src/Demos/Types.purs
@@ -1,7 +1,7 @@
 module Demos.Types where
 
 import Prelude
-import Analytics (class IsEvent, Event)
+import Analytics (class IsEvent)
 import Data.Maybe (Maybe(..))
 import Data.Newtype (class Newtype)
 import Projects.Types (Lang)
@@ -14,8 +14,5 @@ derive instance newtypeDemo :: Newtype Demo _
 data Action
   = LoadDemo Lang Demo
 
-defaultEvent :: String -> Event
-defaultEvent action = { category: Just "Demos", action, label: Nothing, value: Nothing }
-
 instance isEventAction :: IsEvent Action where
   toEvent (LoadDemo lang _) = Just { category: Just "Demos", action: "LoadDemo", label: Just (show lang), value: Nothing }