smurphy8

{-# LANGUAGE DeriveGeneric #-}
module Bar where
-- import Data.List

import qualified Data.Sequence as S
import GHC.Generics
import Data.Foldable
import Data.Monoid
import System.IO 
import qualified Data.ByteString as B

smurphy8

{-# LANGUAGE NoImplicitPrelude, OverloadedStrings, RankNTypes #-}
module ModTest where

import Data.Modbus
import Conduit
import CorePrelude hiding (ByteString)
-- import Control.Concurrent.Async (Concurrently (..))
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString as B
import Data.Modbus 

smurphy8

{-# LANGUAGE OverloadedStrings , NoImplicitPrelude #-}

module StateMachine where
import Control.Monad.Indexed
import CorePrelude

{- | This is my short example of creating an indexed state Monad 

Indexed State Monad are different from the standard state Monad because the type of the
state is transformable.  This is awesome and really nice for creating statemachines that

smurphy8

This is my short example of creating a an Indexed State Monad

[Raw Code] (https://gist.github.com/smurphy8/8e0eb2923a2784ea8acd)

Indexed State Monads are different from the standard state Monad because the type of the state is transformable. This is awesome and really nice for creating statemachines that prohibit invalid transitions at the type level.

Here is the thing I read about [Indexed Monads] (http://blog.sigfpe.com/2009/02/beyond-monads.html)

smurphy8

{-# LANGUAGE OverloadedStrings , NoImplicitPrelude #-}

module StateMachine where
import Control.Monad.Indexed
import CorePrelude

{- | This is my short example of creating an indexed state Monad 

Indexed State Monad are different from the standard state Monad because the type of the
state is transformable.  This is awesome and really nice for creating statemachines that

smurphy8

{-# LANGUAGE OverloadedStrings,TemplateHaskell, MultiParamTypeClasses
   , FunctionalDependencies, FlexibleInstances, RecordWildCards #-}
module AlarmState.Lens where 


import qualified Protocol.Mir3.Simple.Mir3SimpleTypes as M
import Alarm.DB.Types
import AlarmState.Types (AlarmRunner,AlarmParameters,People,Person,AlarmState
                        ,AnyAlarm(..),AnyCall(..),AlarmCallout(..) ,InProgress(..)
                        ,CallResponse(..),AnyCount(..),ValidCall(..))

smurphy8

betweens i f s =  let (lts, gts) = split i s
                      (rslt,_)   = split f gts 
                  in rslt 

smurphy8

var type = 'munchkin';
var go = true;

if (this.gold > 100 || this.flush) {
  if (this.built.length % 6 === 1) {
     type = 'thrower';
  }
  else if (this.built.length % 6 === 5 ){
    type = 'shaman';
  }

smurphy8

buildQuery (AlarmLogLookupId mlul mcll msll magl mgst msTime meTime) = let
  lulQuery = (\lul -> [OnpingTagCombinedLocationId ==. lul]) <$> mlul
  mcllQuery = (\cll -> [OnpingTagCombinedLocationId ==. cll]) <$> mcll
  in concat $ catMaybes [lulQuery,mcllQuery]
  
someFunction = do
  rslt <- buildQuery ...
  runDB $ do
    selectList rslt []

smurphy8

// # Ogre Code Snippets
// ## 06/24/2014


// ### Base Code
// This is the code for my base 



var type = 'munchkin';