Commits

mitar committed 3be2a98

Derived `Typeable` for `NXTInternals`.

Comments (0)

Files changed (2)

 Name:                NXT
-Version:             0.1.5
+Version:             0.1.6
 Synopsis:            A Haskell interface to Lego Mindstorms NXT
 Description:         A Haskell interface to Lego Mindstorms NXT over Bluetoooth. It supports direct commands, messages and
                      many sensors (also unofficial). It has also support for a simple message-based control of a NXT brick
   HS-source-dirs:      src
   Build-depends:       base >= 4.3 && < 5,
                        mtl >= 1.1 && < 3,
-                       NXT == 0.1.5
+                       NXT == 0.1.6
   GHC-options:         -Wall
 
 Executable nxt-upload
                        mtl >= 1.1 && < 3,
                        bytestring >= 0.9 && < 1,
                        filepath >= 1.1 && < 2,
-                       NXT == 0.1.5
+                       NXT == 0.1.6
   GHC-options:         -Wall
   GHC-prof-options:    -Wall
   GHC-shared-options:  -Wall

lib/Robotics/NXT/Internals.hs

-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving, DeriveDataTypeable #-}
 
 module Robotics.NXT.Internals where
 
 import Control.Monad.State
 import Data.Time.Clock.POSIX
+import Data.Typeable
 import System.IO
 
 import Robotics.NXT.Externals
     modules :: [(ModuleName, ModuleInfo)], -- modules info
     sleeptime :: Maybe Duration, -- sleep time limit in seconds
     lastkeepalive :: Maybe POSIXTime -- last time keep alive has been sent
-  }
+  } deriving (Typeable)
 
 instance Show NXTInternals where
   show _ = "NXTInternals"