From d26241ec8918e586fe965d5ea8e317cbbdd0bc16 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Mon, 4 Mar 2013 04:48:38 +0100
Subject: [PATCH] Delete unused files

---
 .gitmodules               |  6 -----
 documentation/manual.md   |  0
 documentation/tutorial.md |  0
 examples/Example.hs       | 55 ---------------------------------------
 examples/IBR.hs           | 46 --------------------------------
 stringprep-hs             |  1 -
 xml-picklers              |  1 -
 7 files changed, 109 deletions(-)
 delete mode 100644 .gitmodules
 delete mode 100644 documentation/manual.md
 delete mode 100644 documentation/tutorial.md
 delete mode 100644 examples/Example.hs
 delete mode 100644 examples/IBR.hs
 delete mode 160000 stringprep-hs
 delete mode 160000 xml-picklers

diff --git a/.gitmodules b/.gitmodules
deleted file mode 100644
index 6b28fe1..0000000
--- a/.gitmodules
+++ /dev/null
@@ -1,6 +0,0 @@
-[submodule "stringprep-hs"]
-	path = stringprep-hs
-	url = git@github.com:Philonous/stringprep-hs.git
-[submodule "xml-picklers"]
-	path = xml-picklers
-	url = git@github.com:Philonous/xml-picklers.git
diff --git a/documentation/manual.md b/documentation/manual.md
deleted file mode 100644
index e69de29..0000000
diff --git a/documentation/tutorial.md b/documentation/tutorial.md
deleted file mode 100644
index e69de29..0000000
diff --git a/examples/Example.hs b/examples/Example.hs
deleted file mode 100644
index 9f3e8f3..0000000
--- a/examples/Example.hs
+++ /dev/null
@@ -1,55 +0,0 @@
-{-# LANGUAGE PackageImports, OverloadedStrings #-}
-module Example where
-
-import Data.Text as T
-
-import Network.Xmpp
-import Control.Concurrent
-import Control.Concurrent.STM
-import Control.Monad
-import Control.Monad.IO.Class
-
-philonous :: JID
-philonous = read "uart14@species64739.dyndns.org"
-
-attXmpp :: STM a -> XmppThread a
-attXmpp = liftIO . atomically
-
-autoAccept :: XmppThread ()
-autoAccept = forever $ do
-  st <- pullPresence
-  case st of
-    Presence from _ idq (Just Subscribe) _ _ _ _  ->
-      sendS . SPresence $
-           Presence Nothing from idq (Just Subscribed) Nothing Nothing Nothing []
-    _ -> return ()
-
-mirror :: XmppThread ()
-mirror = forever $ do
-  st <- pullMessage
-  case st of
-    Message (Just from) _ idq tp subject (Just bd) thr _ ->
-      sendS . SMessage $
-        Message Nothing from idq tp subject
-          (Just $ "you wrote: " `T.append` bd) thr []
-    _ -> return ()
-
-
-main :: IO ()
-main = do
-  sessionConnect "localhost" "species64739.dyndns.org" "bot" Nothing $ do
---      singleThreaded $ xmppStartTLS exampleParams
-      singleThreaded $ xmppSASL "pwd"
-      xmppThreadedBind (Just "botsi")
---      singleThreaded $ xmppBind (Just "botsi")
-      singleThreaded $ xmppContext
-      forkXmpp autoAccept
-      forkXmpp mirror
-      sendS . SPresence $ Presence Nothing Nothing Nothing Nothing
-                (Just Available) Nothing Nothing []
-      sendS . SMessage $ Message Nothing philonous Nothing Nothing Nothing
-        (Just "bla") Nothing []
-      liftIO  . forever $ threadDelay 1000000
-      return ()
-  return ()
-
diff --git a/examples/IBR.hs b/examples/IBR.hs
deleted file mode 100644
index 68b9f88..0000000
--- a/examples/IBR.hs
+++ /dev/null
@@ -1,46 +0,0 @@
-{-
-
-Copyright © 2010-2012 Jon Kristensen.
-
-This file (IBR.hs) illustrates how to connect and perform an XEP-0077:
-In-Band Registration registration using Pontarius. The contents of
-this file may be used freely, as if it is in the public domain.
-
--}
-
-
-module Examples.IBR () where
-
-import Network.Xmpp
-
-
--- Server and authentication details.
-
-hostName = "nejla.com"
-portNumber = 5222
-userName = "test"
-password = ""
-
-
--- Start an XMPP session with the default settings, open the streams
--- to the XMPP server, send the `register' IQ, wait for and interpret
--- the response, and destroy the session.
-
-main :: IO ()
-
-main = session default $ do
-  liftIO $ putStrLn "Welcome to the Pontarius IBR example!"
-  openStreamsResult <- openStreams "nejla.com"
-  case openStreamsResult of
-    Nothing -> do
-      liftIO $ putStrLn "Streams opened, now registering!"
-      pushIQReq Nothing Set query Nothing $ \reply -> do
-        case reply of
-          Right (IQResponse {}) -> liftIO $ putStrLn "Registered!" -- TODO: iqRequestPayload may be empty!
-          Right (IQError {}) -> liftIO $ putStrLn "Registration error!" -- TODO: More details from error stanza
-          Left _ -> liftIO $ putStrLn "Registration error!" -- TODO: More details from error
-        destroy
-    Just error -> liftIO $ putStrLn "Error: " ++ $ show exception
-  where
-    query :: Element
-    query = undefined -- TODO: <query xmlns='jabber:iq:register'><username>userName</username><password>password</password></query>
\ No newline at end of file
diff --git a/stringprep-hs b/stringprep-hs
deleted file mode 160000
index 7a6ca46..0000000
--- a/stringprep-hs
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit 7a6ca463b5e6d6636abf266bc9a782ede4e76b06
diff --git a/xml-picklers b/xml-picklers
deleted file mode 160000
index 1117559..0000000
--- a/xml-picklers
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit 1117559380711ed30d1b83a9fcfc636e20be2fd5