hulk-0.1.1: src/Hulk/Event.hs

module Hulk.Event where

import Hulk.Types

readEventType :: String -> Event
readEventType str = 
  case reads str of
    [(a,"")] -> a
    _        -> NOTHING