module Unsafe
( unsafeHead
, unsafeTail
, unsafeInit
, unsafeLast
, unsafeFromJust
, unsafeIndex
) where
import Base (Int)
import qualified Data.List as List
import qualified Data.Maybe as Maybe
unsafeHead :: [a] -> a
unsafeHead = List.head
unsafeTail :: [a] -> [a]
unsafeTail = List.tail
unsafeInit :: [a] -> [a]
unsafeInit = List.init
unsafeLast :: [a] -> a
unsafeLast = List.last
unsafeIndex :: [a] -> Int -> a
unsafeIndex = (List.!!)
unsafeFromJust :: Maybe.Maybe a -> a
unsafeFromJust = Maybe.fromJust