Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (15 sloc) 0.529 kB
{-# LANGUAGE OverloadedStrings #-}
module Roguestar.Lib.FactionData
(Faction(..),factionPrefix)
where
import qualified Data.ByteString.Char8 as B
data Faction = Player
| Nonaligned -- friendly, aggroed per-planet
| Monsters -- always hostile
| Cyborgs -- cyborgs
deriving (Eq,Read,Show,Enum,Bounded)
factionPrefix :: Faction -> B.ByteString
factionPrefix Player = "Z"
factionPrefix Monsters = "M"
factionPrefix Nonaligned = "P"
factionPrefix Cyborgs = "Y"
Jump to Line
Something went wrong with that request. Please try again.