catch up new interface for Attachment

BrianHicks · Feb 17, 2020 · 005c713 · 005c713
1 parent adead74
commit 005c713
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/src/Attachment.elm b/src/Attachment.elm
@@ -1,17 +1,12 @@
-module Attachment exposing (Attachment, init, view)
+module Attachment exposing (Attachment(..), view)
 
 import Html exposing (Html)
 import Html.Attributes as Attrs
 import Html.Events as Events
 
 
-type alias Attachment =
-    { top : Int }
-
-
-init : Int -> Attachment
-init =
-    Attachment << abs
+type Attachment
+    = Attachment Float
 
 
 view : Attachment -> Html msg