Permalink
Browse files

Derived `Typeable` for `NXTInternals`.

  • Loading branch information...
1 parent cdcba4b commit 4e93139067991e7a0520d18e03774235dc4eafce @mitar committed Nov 26, 2010
Showing with 6 additions and 5 deletions.
  1. +3 −3 NXT.cabal
  2. +3 −2 lib/Robotics/NXT/Internals.hs
View
@@ -1,5 +1,5 @@
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
@@ -59,7 +59,7 @@ Executable nxt-shutdown
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
@@ -69,7 +69,7 @@ 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
@@ -1,9 +1,10 @@
-{-# 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
@@ -22,7 +23,7 @@ data NXTInternals = NXTInternals {
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"

0 comments on commit 4e93139

Please sign in to comment.